home *** CD-ROM | disk | FTP | other *** search
- file$="mouse" : 'v2.11
- OPEN file$ FOR OUTPUT AS #1
- lin=0 : a$=""
- Loop:
- lin=lin+1
- READ x$ : IF x$="**" THEN Endeth
- Beyond:
- i=INSTR(x$," ")
- IF i>0 THEN
- x$=LEFT$(x$,i-1)+MID$(x$,i+1)
- GOTO Beyond
- END IF
- x$=UCASE$(x$)
- cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
- sum=0
- FOR i=1 TO LEN(x$)
- sum=sum+(ASC(MID$(x$,i,1)) XOR i)
- NEXT i
- IF (sum AND 255)<>VAL("&H"+cs$) THEN
- PRINT "Checksum error in line";lin
- GOTO Endeth
- END IF
- x$=a$+x$ : a$=""
- FOR i=1 TO LEN(x$) STEP 2
- IF MID$(x$,i,1) = "G" THEN
- IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
- y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
- i=i+2
- ELSE
- y$=CHR$(VAL("&H"+MID$(x$,i,2)))
- END IF
- PRINT #1,y$;
- NEXT i
- GOTO Loop
-
- Endeth:
- CLOSE #1
- PRINT "Operation complete"
- END
-
- 1 DATA ga0003 f3gf00 01gj00 a6ga00 03e9gb 00a64e 54ff18 2948ff f44230 57
- 2 DATA 00ff2c 780004 43fa02 787000 4eaefd d82940 fffc67 ga00f6 2c7800 81
- 3 DATA 0443fa 025070 004eae fdd829 40fff8 67ga00 e041ec ff1870 742c6c 2d
- 4 DATA fff84e aeff7c 2a6cff f41015 0cga00 3f67ga 008a4a 006620 41fa01 ed
- 5 DATA ff43ec ff1830 29006c 0c4000 096208 43fa02 088111 606e41 fa01d8 5d
- 6 DATA 606861 ga00ce 101d67 ga0096 61ga00 d60cga 003065 220cga 003962 d9
- 7 DATA 1c0240 000f41 ecff18 314000 6c7074 72ff2c 6cfff8 4eaefe bc528d 2f
- 8 DATA 60ca0c ga0053 660a61 ga0092 101d67 2060c8 0cga00 506618 61ga00 8b
- 9 DATA 82101d 04ga00 3165ga 0cga00 016206 61ga00 94609c 41fa01 2e48e7 f0
- 10 DATA f0c224 082c6c fffc4e aeffc4 220067 ga000a 2c6cff fc61ga 000a4c 45
- 11 DATA df430f 60ga00 142042 4a1866 fc5388 260896 824eae ffd04e 75226c 16
- 12 DATA fff820 0967ga 000a2c 780004 4eaefe 6242ac fff822 6cfffc 200967 3c
- 13 DATA ga000a 2c7800 044eae fe6242 acfffc 70004e 5c4e75 101d0c ga0020 2b
- 14 DATA 67f80c ga0009 67f253 4d4e75 0cga00 61650a 0cga00 7a62ga 04ga00 af
- 15 DATA 204e75 1940ff ea41fa 00cd70 0043ec ffba72 002c78 00044e aefe44 49
- 16 DATA 2940ff f06668 45ecff 98157c 000400 08422a 000942 aa000a 422a00 28
- 17 DATA 0e70ff 2940ff ec4eae feb629 40ffec 6b4215 40000f 93c94e aefeda 72
- 18 DATA 254000 1041ea 001420 885890 42a800 042148 000820 0a45ec ffba25 a3
- 19 DATA 40000e 357c00 0e001c 41ecff ea2548 002870 012540 002422 4a4eae 94
- 20 DATA fe3820 2cfff0 660843 ecffba 4eaefe 3e202c ffec6b 044eae feb04e d4
- 21 DATA 754d6f 757365 207631 2e3235 0a5573 616765 3a206d 6f7573 65205b 31
- 22 DATA 50203c 706f72 743e5d 20ga5b 535d20 3c7370 ga6564 3e5d0a 00696e 04
- 23 DATA 707574 2e6465 766963 65006d 6f7265 207468 616e20 390a00 546865 7b
- 24 DATA 206375 ga7265 6e7420 6d6f75 736520 7370ga 656420 697320 302e0a 3d
- 25 DATA 00696e 747569 74696f 6e2e6c 696272 617279 00646f 732e6c 696272 4e
- 26 DATA 617279 gd0003 f245
- DATA **
-